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MODULE PASSWRITE_ENUMERATED ( &TITLE ‘Write an enumerated ue’ 
IDENT = ‘l= ! File: 


Page 1 


AX-11 Oi loge V4.0-74 
SRC JPASWRIENU.B52;1 (1) 


50 
04 PASRTL.SR 
va 
Sw 


L 
002' ile: PASWRIENU.B32 Edit: SBL1002 


BEGIN 


VaR R AERA REE AREA A ERATE AAA TEREA AAAS 


!# COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
i® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
: T NOTICE. THIS SOFTWARE OR ANY OTHER 
!* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
tt OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
*® 
® 
® 
* 
® 
® 
wt 
ie TRANSFERRED. . 
® 
® 
* 
® 
* 
® 
® 
*® 
® 
® 
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!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND §S NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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1 
1 
1 
1 
1 
1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 1 
1 0 1 
1 0 1 
2 0 1 ie HOULD 
§ ; : * CORPORATION. | 
® | 
2 0 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
§ ; : 7 SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
* 
0 1 !e 
; 03 1 Lee AAA AREER EAE A EAA 
0 ¢@ 
0 1 
0 1 44 
; o3 : FACILITY: Pascal Language Support 
3 O55 1 | ABSTRACT: 
: 035 1! This module contains a procedure which writes an enumerated value | 
36 0036 1! to a textfile. 
37 0037 1! 
$ sit ' : ENVIRONMENT: User mode ~ AST reentrant | 
4 
re Bpeg : } AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 | 
42 0042 1 | MODIFIED BY: | 
43 0043 1! | 
44 044 1 ! 1-001 - Original. SBL 1-April-1981 
45 045 1 ! 1-002 - Make total-width a longword. SBL 29-Jun-1982 
46 0046 1 !-- 
47 0047 1 


Ne SWRITE_ENUME Write an enumerated value 


2 Declarations 
H 4 rk ! RSBTTL *"Declarations' 
3 i bey 1 ! PROLOGUE DEFINITIONS: 
aoe Bad? 
$ 3 038 ’ REQUIRE ‘RTLIN:PASPROLOG'; 
ae 119 1 1 TABLE OF CONTENTS 
3 58 61 01! 
soe 0121 #1 
5 60 8 ¢ 1 FORWARD ROUTINE 
. 61 1 1 PASSWRITE_ENUMERATED: NOVALUE 
; «6 0124 1 PASSWRITEV_ENUMERATED: NOVALUE; 
g 6 b1S¢ 1 
3; & 0126 1! 
3 65 8iS¢ 1 ! MACROS: 
3 66 0128 1! 
3 67 at 94 1! NONE 
3 68 0130 1! 
3 69 0131 1 ! EQUATED SYMBOLS: 
} 70 SEL 1! 
3 71 013 1! NONE 
3 72 0134 1! 
: 73 0135 1 ! FIELDS: 
; 74 0136 1! 
3 75 0137 1! NONE 
3 76 0138 1! 
3 77 0139 1 ! OWN STORAGE: 
3 78 0140 1! 
: 79 os 3 2 NONE 
:; 80 0142 1! 


N 13 
1eSep-198e 19:58:08 EPASRTL’SRESPASURIENU 682; 1 


! Externals, Linkages, PSECTs, structures 


! Write to textfile 
' Write to string 
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Write an enumerated value 1.00 p-1984 AX-11 Bliss-32 V P 
PASSWRITE_ENUMERATED = Write an enumerated valu 12: 2308-1382 1 93: $33 PASRTL.SR RCIP PASUMI M0 B82: 37 — (33 
; 0143 1 XSBITL 'PASSWRITE_ENUMERATED = Write an enumerated value to textfile’ 
; 0144 1 GLOBAL ROUTINE PASSu TE_ENUMERATED ( ree : 
3 0145 1 PFY det: gi iRinete. ! File variable 
: ping : PEND: REE sUEETOR bs Enumerated fype descriptor 
; ue to wr 
; 0148 1 TOTAL_WIDTH: SIGNED, i Total field width 
; 0149 1 ERROR i Error unwind address 
3 0130 ): NOVALUE = | 
: O19¢ 1 !44 
: 8127 : FUNCTIONAL DESCRIPTION: 
3 0135 i This procedure writes an enumerated value to the specified textfile. 
; O157 1 CALLING SEQUENCE: | 
; 0159 1 CALL PASSWRITE ENUMERATED (PFV.mr or. PETD.rror, VALUE. rlu.v, 
: 108 Bice : TOTAL_WIDTH.rl.v CERROR.j.rJ) | 
; 101 016¢ FORMAL PARAMETERS: 
: 103 0164 1! PFV - The Pascal File Variable (PFV) passed by reference. 
: 183 Bie? ' The structure of the PFV is defined in PASPFV.REQ. 
: 106 0167 1! PETD - Pascal Enumerated Type Descriptor, passed by reference. 
: Hd Bice : The structure of a BET is se fei lous: : 
: 109 0170 1! tonennnenn---------------------- . | 
; 119 Atal i offset of ASCIC type name : <== PETD 
3 V6 Bit? ! } i count of possible values (n) H | 
3 116 O17 i offset of ASCIC value name 0 i 
; 116 O17 | offset of ASCIC value name 1 i 
: 118 0179 1: td 
3 «119 0180 1! Sl + 
: is? at : H offset of ASCIC value name n-ti 
> 122 0183 1! | 
s 1235 0184 1! The offsets are relative to the address 
> 124 0185 1! of the descriptor (PETD). The names are 
3 125 8136 1! counted strings with 1-byte counts. It 
; 126 0187 1: is assumed that the compiler has upcased 
; 44 Hs ' all of the strings. 
3 193 Bios \ VALUE - The enumerated value to write. 
: 131 0198 TOTAL_WIDTH - Total field width. 
; 182 B19¢ : ERROR - Optional. Address to unwind to if an error occurs. 
; 135 0196 IMPLICIT INPUTS: 
: 137 0198 1 | NONE 
; 138 0199 1! 
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| IMPLICIT OUTPUTS: 
NONE 

! ROUTINE VALUE: 
NONE 

: SIDE EFFECTS: 

! If the file is the standard file INPUT or OUTPUT, it is implicitly opened. 
i 

; 

i 

i 

. 


1 Oh iene te Midiu af Page 4 
PASRTL.SRC JPASWRIENU.B52; 1 (3). 


oo wo 


! SIGNALLED ERRORS: 


LINTOOLON = Line too long | | 
WRIINVENU = WRITE of invalid enumerated value | 
NEGWIDDIG = negative Width or Digits specification is not allowed 


BEGIN 


LOCAL 
FCB: REF $PASS$FCB_CONTROL_BLOCK, 
FIELD WIDTH 


VALUE STRING: REF VECTOR C, BYTE), 


E WIDTH 
PFV_ADDR: VOLATILE, 
UNWIND_ACT: VOLATILE, 
ERROR_ADDR: VOLATILE: 


BUILTIN 
ACTUALCOUNT ; 


ENABLE 
PASS$SIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler 


File control block 
Total width 
Enumerated value strin 
Width of enumerated value 
Enable argument 
Enable argument 
Enable argument 
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4 
Get ERROR parameter, if present. 


IF ACTUALCOUNT () GEQU 5 
ERROR_ADDR = .ERROR; ! Set unwind address 
PFV_ADDR = PFV CPFVSR_PFV]; ! Set PFV address 


'¢ 
Validate PFV and get PFV. 


NOME WN | O OONOANEWN — O ODNAUE WN (O OONAUESWWN "OO DNAOULSWNH—O” 


ee eS Jala td iO bie etn ot ote eae oe bin abn 


PASSSVALIDATE_PFV (PFV CPFVSR_PFVJ; FCB); 


4 
Set unwind action to unlock file. 
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D 14 

16-Sep-1984 16:50 
1ezgee 7138 93:48:38 
UNWIND_ACT = PASS$K_UNWIND_UNLOCK; 

4 

Do common initialization. 


PASSSINIT_WRITE (PFV CPFVSR_PFVJ, FCB CFCBSR_FCBJ; FCB); 
14 
Check for invalid width. 
IF .TOTAL_WIDTH LSS 0 
THEN 
SPASSIO_ERROR (PAS$_NEGWIDDIG,0); 


'4 
Get field width 


FIELD_WIDTH = .TOTAL_WIDTH; 
'4 


Determine if value is out-of range and then locate value. 


IF .VALUE GEQU .PETD [1] 
THEN 


SPAS$IO_ERROR (PAS$_WRIINVENU,0); 
VALUE_STRING = .PETD + [PETD C.VALUE+2]; ' Relative address 
VALUE_WIDTH = MIN (.VALUE_STRING CO), .FIELD_WIDTH); 


14 
See if field will fit in record. 


xtra characters end of 


EXTRA; 'e€ pest 
EXTRA ran oth 5P CRSA _RECORS CUD + .FIELD_WIDTH) - .FCB CFCBSA_RECORD_END); 


THEN 
- $PASS$IO_ERROR (PAS$_LINTOOLON,1,.EXTRA); 


'¢ 
Move leading blanks, if any. 


IF .FIELD_WIDTH = .VALUE_WIDTH GTR 0 
THEN 


FCB CFCBSA_RECORD CUR) = CHSFILL (2C° °, .FIELD_WIDTH - .VALUE_WIDTH, 


-FCB CFCBSA_RECORB_CuR}); 


14 
Now move value 


& 14 
enumerated value 16-Sep-1984 02: 


-EXTRN PASS$K_WRIINVENU 
-EXTRN PASS$K~ LINTOOLON 
-EXTRN PASS$SEND WRITE 


-PSECT _PASSCODE,NOWRT, SHR, PIC,2 


PASSWRITE_ENUME Write an :50 AX-11 Bliss-32 Vv Pa 6 

1-002 PASSWRITE “ENUMERATED - Write an enumerated valu 14-Sep-1984 1 :f 704 PASRTL.SR ROIP PASURI Mo B82; 57 wt (3) 

: 253 0314 

3 254 0315 FCB CFCBSA_RECORD_CUR] = CHSMOVE (.VALUE_WIDTH, VALUE_STRING (1), 

; 5 BH -FCB CFCBSA_RECORD_CURJ); ‘4 

: 257 0 18 14 

; 258 031 i Call WRITE epilogue routine to move the last character written to the 

3; 2939 0320 _user’ s buffer and to unlock the file variable. 

: $80 ois) : 

: 36¢ 0338 3 PASSSEND_WRITE (PFV CPFVSR_PFVJ, FCB CFCBSR_FCBJ); 

: 264 0325 3 RETURN; 

3 65 0326 

3; 266 0327 1 END; ! End of routine PAS$WRITE_ENUMERATED 
.TITLE PASS$WRITE_ENUMERATED Write an enumerated value 
-IDENT \1-002\ | 
-EXTRN  PASSWRITE ENUMERATED | 
-EXTRN S$WRITEV_ENUMERATED 
-EXTRN PAgs$10 HANDLER | 
-EXTRN PA SSSVACIDATE PFV 
-EXTRN PASSSINIT_WRITE 
~EXTRN PAS$SSIGNAL . PASS$K_NEGWIDDIG | 


0O7FC 00000 ~ ENTRY att pe |) atelelae Save R2,R3,R4,R5,R6,— ; see 
5A 000000006 00 9€ 00002 MOVAB PASSSSIGNAL, R10 ; | 
SE 08 C2 00009 SUBL2 #8, : 
7E D4 0000C CLRL ERROR PADDR : 0220) 
04 AE 7C OOO0DE CLRQ UNWINB_ACT 3 
6D 0098 CF DE 00011 MOVAL 8$, (FP) : 
05 6C 91 00016 CMPB. ss (AP), «#5 + 0241 
04 1F 00019 BLSSU_1$ : 
6E 14 AC 00 0001B OVL ERROR, ERROR_ADDR > 0243 
56 04 AC DO OOO1F 1$: MOVL FV > 0245 
08 AE 56 DO 00023 MOVL R6, PFV_ADDR é 
000000006 00 16 900 7 JSB PASSSVACIDATE_PFV ; 0251 | 
04 AE 01 D0 0002D MOVL #1, UNWIND AC : 0257 
000000006 00 16 00031 JSB PASSSINIT QRITE > 0263 | 
10 AC 05 00037 TSTL TOTAL_WIDTH ; 0269 | 
08 18 0003A BGEQ : 
7E D4 0003C CLRL -(SP) : 0271 
7E 00G 8F 9A 00035 MOVZBL #PASSK_NEGWIDDIG, -(SP) : 
15 11 0004 BRB ; 
52 10 Ac 00 b0044 2$: MOVL TOTAL WIDTH, FIELD_WIDTH : 0277. 
é 08 AC DO 00048 MOVL PET > 0283. 
04 AB OC AC D1 0004C CRPL VALUE , 4 (R3) ; | 
OA 1F 00051 BLSSU 4$ : 
7E D4 0053 CLRL  -(SP) > 0285. 
7E 00G 8F 9A 0005 MOVZBL #PASSK_WRIINVENU, =(SP) 5 


; Routine Size: 211 bytes, Routine Base: _PAS$CODE + 0000 


267 0328 1 
268 0329 1 !<BLF/PAGE> 


F 14 
PASSURITE -ENUME Write an enumerated value 16-Sep-1984 AX-11 Bliss-32 V4.0-74 Pa 7) 
1-002 PASSWRITE “ENUMERATED = write an enumerated valu 14- =tep- 1384 96: 18:3 PASRTL.SRCJPASWRIENU.B 2:1 wi (3) 
6A 02 FB 0059 3$: CALLS #2, PASSSSIGNAL ; ; 
5 OC AC BO bOns6 4S MpVL : 0286. 
: 3 . 
58 38 08 A3ao ci 0061 ADDL3 BRS t aby R3, VALUE_STRING : ; 
50 68 9A 00067 MOV ZBL (yates STRING), RO ; 0287 ; 
52 8 D1 O006A CMPL 0, PiELD. wl SrA : 3 
9 15 0006D BLEQ ; 3 
50 2 DO 0006F MOVL FLELD xHiOTH : ; 
59 50 D0 00072 5$ MOVL. RO Uiora : ; 
50 52 EC A? C1 0007 ADDL3 TN te FIEL p _WIDTH, RO + 0296 | ; 
50 FO OA? C2 0007A SUBL2 <-16(FCB), EXTRA : ; 
o¢ 1 0007E BLEQ : 0297' : 
DD 0008 PUSHL EXTRA : 0299. ; 
01 DD 00082 PUSHL @# : : 
7E 00G 8F 9A 00084 MOVZBL #PASSK L INTOOLON, -(SP) : : 
6A 03 FB 00088 CALLS #3, PASSSSIGNA : ; 
59 52 D1 0008C 6$: CMPL FIELD_WIDTH, VALUE_WIDTH : 0306 : 
OE 15 O008F BLEQ : ; 
52 59 ¢2 00091 SUBL2 VALUE_WIDTH, R2 : 0308 : 
52 20 6E 00 2C 00094 movcS #0, (SP), R2, a-20(FCB) + 0309 : 
EC 867 00099 : : 
EC A? 53 pO 00098 MOVL R3, -20(F ; : 
EC 867 01 A8 59 28 OO09F 7$: MOVC3 VALUE WIDIL 1(VALUE_STRING), @-20(F CB) + 0316 : 
EC AZ 53 DO OO00AS MOVL R3, ; : 
000000006 00 16 000A9 JSB BASSSEND _WRITE : 0323 : 
04 QOOAF RET 3 0327) F 
0000 00080 8$: «WORD Save nothing 3 0220 | 3 
50 08 AC DO 00082 MOVL B(AP), RO ; : 
50 04 Ad DO 00086 MOVL 4(RO), RO ; : 
F4 AO 9F OOOBA PUSHAB ERROR ADDR ; : 
F8 AO 9F OO00BD PUSHAB UNWIND ACT 3 3 
FC AO 9F 000CO PUSHAB PFV_ADBR : : 
03 DD 000C3 PUSHL : 3 
5E pd 000c5 PUSHL ; : 
7E 04 AC 7D 000C7 MOVQ 4(AP), =(SP) : : 
000000006 00 03 FB 000CB CALLS #3, PASS$$IO_HANDLER ; : 
04 00002 RET : | : 
: 
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PASSWRITE_ENUME Write an enumerated value 
\- PASSWRITEV_ENUMERATED = Write ENUMERATED to str 12: -Sep-1984 


IEReeHats :g8:62 UGH ent 


ZSBITL ‘PASSWRITEV_ENUMERATED = Write ENUMERATED to string’ 
GLOBAL ye a ce ENUMERATED ( 


WORD 
STRING_LINE: REF VECTOR C. WORD], String to write to 


PETD: REF VECTOR C, LONG), 
TOTAL. WIDTH: SIGNED, 
ERROR 

) : NOVALUE = 


i 

i 

i Value to wr 

i Total field width 

i Error unwind address 


'e¢ 
Peete DESCRIPTION: 


This procedure writes an enumerated value to the specified string. 
CALLING SEQUENCE: 


CALL PASSWRITEV_ENUMERATED (MAX_LENGTH.rw. v. STRING_LINE.wvt.r, 
VALUE.rlu.v, TOTAL_WIDTH.rl.v C, ERROR.j.rJ) 


FORMAL PARAMETERS: 


MAX_LENGTH - The maximum Length of STRING_LINE. 

STRING_LINE - A varying string to which the output will be appended. 
VALUE - The value to write. 

TOTAL_WIDTH - The width of the field to write. 

ERROR - Optional. If specified, the address to unwind to 


in case of an error. 
IMPLICIT INPUTS: 
NONE 


! IMPLICIT OUTPUTS: 


NONE 
| ROUTINE VALUE : 
NONE 


! SIDE EFFECTS: 


NONE 
SIGNALLED ERRORS: 
See PAS$WRITE_ENUMERATED 


BEGIN 


! Maximum Length of string 
Enumerated type descriptor 


PASSWRITE_ENUME Write an enumerated value 
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wy 
Ais ruts: EroR say 5 : 
An. LIST: a tg 5 i 
ADDR: 
i 


BUILTIN 
ACTUALCOUNT; 


ENABLE 
PASSSIO_HANDLER (PFV_ADDR, UNWIND 


14 

Get ERROR parameter, if present. 

i  iicrne () GEQU 6 
ERROR_ADDR = .ERROR; 

PFV_ADDR = PFV CPFVSR_PFV); 


'+ 
i. Set up ARG_LIST. 


Py CPF VSR_PFVI; 


> 

x 

* 
Seecrcre 
ae be be be 
YNMNNYH 
—s4 44-44 
enrmnrrer 
WO 
Wt tt 
nnunwn 


> VALUE ; 
TOTAL_WIDTH; 


; “te LL PAS$$D0_WRITEV to do the work, 
_ PASSWRITE_ENOMERATED to call. 


PASS$00 WRITEV (PFV CPF VSR _PFV], .MAX 
ASSWRITE_ENUMERATED) ; 

RETURN; 

END; 


007C 00000 

5E ¢c C2 Bo bRe 
E D4 0000 

Of AE 7C BOO 

6D OOSE CF DE OOOOA 
06 6 91 QOO0F 
4 1F 00012 

6E 18 AC DO 00014 


H 14 
16-Sep-1984 96:1 :50 AX-11 
Write ENUMERATED to str 14-Sep-1984 12:52:04 T 


_ACT, ERROR_ADDR); 


V4.0- 
PASRTL WRIENU 


Pascal File Variable 
Argument List 

Enable argument 
Enable argument 
Enable argument 


Count of arguments 


' Enable error handler 


Set unwind address 
Set PFV address 


Four arguments 

PFV address 

Enumerated type descriptor 
Value to write 

Field width 


giving it the address of 


LENGTH, STRING_LINE (OJ, ARG_LIST, 


! End of routine PAS$WRITEV_ENUMERATED 


-EXTRN PASS$SDO_WRITEV 


-ENTRY YY tat Mahle ENUMERATED, Save R2,R3,R4,R5,R6 


CLRL + ERROR_ADDR 
UNWIND ACT 


MPB (ab), % 
ERROR, ERROR_ADDR 


Page 


; Routine Size: 111 bytes, Routine Base: _PASS$CODE + 00D3 


14 

PASSWRITE_ENUME Write an enumerated value these -1984 AX-11 Bliss-32 V4.0-74 Page 10. 
1-002 PASSWRITEV_ENUMERA TED - Write ENUMERATED to str 14- ety 7 96: 38:3 PASRTL.SRCJPASWRIENU.B32;1 . (4) | 
08 AE 20 AE 9E 00018 1$: MOVAB PFV, PFV_ADDR : 0408 
¢ AE 04 9010 MOVL #4, ARG CIST + 0414) 
1 AE 20 AE 9E 00021 MOVAB PFV, ARG_LIST+4 + 0415. 
146 AE C AC 7D 00026 MOVa _—~ PET, ARG L1ST+8 + 0416. 
“ms 6 « 14 AC 00 000 MOVL TOTAL_WIDTH, ARG_LIST+16 3; 0418) 
5 FEF CF OE 00 MOVAB PASSURY TE "ENUMERATED R5 + 0425. 
24 0C AE 9E 000 MOVAB ARG_LIST,~R4 : 
: 20 AE 4 0039 MOVAB PFV : | 
5 8 AC p 9003p OVL STRING LINE, af? ; | 

52 04 aC 3C 00041 MOVZWL sO un ; 

000000006 00 16 00045 JSB PACS DO URiTes ; 
04 90048 RET : 0430 
0000 0004C 2$ «WORD Save nothing ; 0385 

50 08 ac dO OO04E MOVL  8B(AP), RO : 

50 04 AO 00 0005 MOVL  4(RO), RO : 
DO AO 9F 00056 PUSHAB ERROR_ADDR : | 
D4 AO 9F 00059 PUSHAB UNWIND ACT : | 
D8 AO 9F 0005C PUSHAB PFV_ADBR : | 
03 DD 0005F PUSHL #3 ; 
5E DD 00061 PUSHL SP : 
7E 04 AC 7D 00063 MOVa 4 (AP), =(SP) : 
000000006 00 03 FB 00067 CALLS #3, PAS$$IO_HANDLER : | 
04 0006E RET ; | 
} 


3 ri 0431 1 
3 sve 0432 1 !<BLF/PAGE> 


J 14 


PASSURI TE _ENURE Write an enumerated value b-Sep 9-1 384 9g: 1g: 39 AX-11 Bliss-32 V4.0 Page 11 
1-002 PASSWRITEV rENUMERATED. Urite ENUMERATED to str | 7-305- 19 75 PASRTL.SRC PASWRIENU. if 2;1 (5) 
; 35 c34 ! END ! End of module PASSWRITE_ENUMERATED 
: 376 0435 0 ELUDOM 


PSECT SUMMARY 
Name Bytes Attributes 
PASSCODE 322 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


: rane Symbols ------<-- Pages Processing 
: File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 0 0 581 00:01.0 
3 ~$255$DUA28:CPASRTL.OBJJPASLIB.L32;1 427 97 22 33 00:00.4 
; COMMAND QUALIFIERS 


BLISS/CHECK=CFIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=L ISS: PASURIENU/0BJ=08JS : PASWRIENU MSRC$:PASWRIENU/UPDATE =(ENH$ : PASWRIENU 


; Lexemes/CPU-Min: 13876 
Memory Used: 96 pages 
Compication Complete 


3; 377 0436 0 

: Size: 322 code + 0 data bytes 
3; Run Time: 00:08.3 

: Elapsed Time: 00:36.2 

3 Lines/CPU Min: 170 


AH-BT13A-SE 


DIGITAL EQUIPMENT CORPORATION 
VAX/VMS V4.0 ___CONFID 


ENTIAL AND PROPRIETARY 
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